home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
c01lab1.zip
/
SIMLATRS
/
BUOY_TES.A
< prev
next >
Wrap
Text File
|
1992-11-11
|
929b
|
40 lines
with Buoy_Sensor_Interface; use Buoy_Sensor_Interface;
with Console;
procedure Buoy_Test is
procedure Display is
begin
for I in BUOY_ID loop
Update(I);
Console.Put (" Buoy ");
Console.Put (BUOY_ID'IMAGE(I));
Console.Put (": ");
Console.Put (FLOAT(Air_Temperature(I)), 3, 1);
Console.Put (" ");
Console.Put (FLOAT(Water_Temperature(I)), 3, 1);
Console.Put (" ");
Console.Put (FLOAT(Wind_Speed(I)), 2, 1);
Console.Put (" ");
if Red_Light(I) = ON then
Console.Put ('R');
else
Console.Put (' ');
end if;
if Yellow_Light(I) = ON then
Console.Put ('Y');
else
Console.Put (' ');
end if;
Console.New_Line;
end loop;
end Display;
begin
for I in 1..30 loop
Console.Put_Line ("Monitoring Buoy");
Display;
end loop;
end Buoy_Test;